#-----------------------------------------------------------#
#  죄와벌++ 이율배반										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 정보 PC용 써브루틴	Version 1.1							#
#--- [주의 사항] --------------------------------------------#
# 1. 이 스크립트는 이하의 이용 규정에 따라 배포하고 있습니다. 	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
# 정보
sub infomation_com{
	$log .= qq|<b style="color:$color[$camp]">현재의 $cmp[$camp] 에 소속하는 장병 일람</b><br><br>\n|;

	if($com){
		if(length($com)>80){ &error("전각 40 문자까지입니다. ",1); }
		$com =~ s/\n//g;
		$info_mes=$com;
	}

	local(@usrfile,@tdat);

	# 참가자 데이터 파일 일람 취득/read
	&usrdata_read;
	&usrdata_open;
	require './inc/ore_sub-members-p1.cgi';&member_list;

	if($camp eq'' || $camp < 1 || $camp > 5){

		$log .= "<table border=0 cellpadding=2 cellspacing=2 width=100%>\n<tr align=center bgcolor=#ccccee><td>순위</td><td>LV</td><td>이름</td><td>체력/정신</td><td>공격/방어/지휘/민첩</td><td>무기</td><td>방어용 기구</td><td>계급</td><td>행동</td></tr>";

		foreach (0 .. $#tdat){

			%R = '';
			my @prats = split(/,/,$tdat[$_]);
			foreach $prats (@prats){
				my($y,$x) = split(/;/,$prats);
				$R{$y} = $x;
			}

			$NM_V				= $R{'nm'};
			$HP_MAX_V			= $R{'max_hp'};
			$MP_MAX_V			= $R{'max_mp'};
			$LV_V				= $R{'rank'};
			$TM_V				= $R{'lv'};
			$UA_V				= $R{'ua'};
			$UD_V				= $R{'ud'};
			$LR_V				= $R{'lr'};
			$AG_V				= $R{'ag'};
			$DG_A_V				= $R{'dg_a'};#무기
			$DF_A_V				= $R{'df_a'};#방어용 기구
			$SOGO_V				= $R{'sogo'};#칭호
			$SEI_V				= $R{'sei'};#성별
			$MES_V				= $R{'info_mes'};

			$TYPE_V				= ($R{'type'}) ? "$R{'type'}" : "대기중";

			$cnt				= $_+1;

			if($R{'camp'} == 0){
				$log .=qq|<tr align="center" bgcolor="#ccccee"><td>$cnt</td><td>$TM_V</td><td>|;

				# 칭호
				$log .= ($SOGO_V > 0) ? "$NM_V <small>[$sogo_p[$SOGO_V]]</small>" : "$NM_V";

				$log .="</td><td>$HP_MAX_V/$MP_MAX_V</td><td align=center>$UA_V/$UD_V/$LR_V/$AG_V</td><td>$dg_data[$DG_A_V][1]</td><td>$df_data[$DF_A_V][1]</td><td>$cl[$LV_V]</td><td>$TYPE_V</td></tr>\n";

				$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="9">&gt;&gt; 비고: $seibetu[$SEI_V]&nbsp;&nbsp;&nbsp;&nbsp;격언: $MES_V</td></tr>\n|;
			}
		}

	}else{

		foreach(0 .. $#tdat){
			%R = '';
			my @prats = split(/,/,$tdat[$_]);
			foreach $prats (@prats){
				my($y,$x) = split(/;/,$prats);
				$R{$y} = $x;
			}

			if($camp == $R{'camp'}){
				$NM_V{$R{'nm'}}		= $R{'nm'};
				$HP_MAX_V{$R{'nm'}}	= $R{'max_hp'};
				$MP_MAX_V{$R{'nm'}}	= $R{'max_mp'};
				$LV_V{$R{'nm'}}		= $R{'rank'};
				$TM_V{$R{'nm'}}		= $R{'lv'};
				$UA_V{$R{'nm'}}		= $R{'ua'};
				$UD_V{$R{'nm'}}		= $R{'ud'};
				$LR_V{$R{'nm'}}		= $R{'lr'};
				$AG_V{$R{'nm'}}		= $R{'ag'};
				$DG_A{$R{'nm'}}		= $R{'dg_a'};#무기
				$DF_A{$R{'nm'}}		= $R{'df_a'};#방어용 기구
				$SOGO_V{$R{'nm'}}	=$R{'sogo'};#칭호
				$SEI_V{$R{'nm'}}	=$R{'sei'};#성별
				$MES_V{$R{'nm'}}	=$R{'info_mes'};

				$TYPE_V{$R{'nm'}}	= ($R{'type'}) ? "$R{'type'}" : "대기중";

				$N_M{$R{'nm'}}		= $_;
			}
		}

		$log .=qq|<table border="0" cellpadding="2" cellspacing="2" width="100%">\n<tr align="center" bgcolor="#ccccee"><td style="font-size:12px">순위</td><td style="font-size:12px">LV</td><td style="font-size:12px">이름</td><td style="font-size:12px">체력/정신</td><td style="font-size:12px">공격/방어/지휘/민첩</td><td style="font-size:12px">무기</td><td style="font-size:12px">방어용 기구</td><td style="font-size:12px">계급</td><td style="font-size:12px">행동</td></tr>|;

		$l = $rk = 1;
		foreach $nm (sort sclv keys(%LV_V)){
			$lv_v = $LV_V{$nm};
			next if($lv_v<=0);
			if($lv_v<$prv_lv){ $rk = $l; }

			$log .="<tr align=center bgcolor=#ccccee><td>$rk</td><td>$TM_V{$nm}</td><td>";

			#칭호
			$log .= ($SOGO_V{$nm} > 0) ? "$NM_V{$nm} <small>[$sogo_p[$SOGO_V{$nm}]]</small>" : "$NM_V{$nm}";

			$log .="</td><td>$HP_MAX_V{$nm}/$MP_MAX_V{$nm}</td><td align=center>$UA_V{$nm}/$UD_V{$nm}/$LR_V{$nm}/$AG_V{$nm}</td><td>$dg_data[$DG_A{$nm}][1]</td><td>$df_data[$DF_A{$nm}][1]</td><td>$cl[$lv_v]</td><td>$TYPE_V{$nm}</td></tr>\n";

			$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="9">&gt;&gt; 비고: $seibetu[$SEI_V{$nm}]&nbsp;&nbsp;&nbsp;&nbsp;격언: $MES_V{$nm}</td></tr>\n|;

			$prv_lv = $lv_v;
			$l++;
		}
	}

	$log .="</table>\n";

	$log.=<<EOM;
<br><br>
<div align="center" class="moji2">
<form method="$method" action="$script" name="ore_">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="pw" value="$pw">
<input type="hidden" name="cmd" value="6">
<input type=text name="com" class="button2" style="width:360px">
<input type=submit value="호˚틱/갱신" class="button2" style="width:100px">
<input type=reset value="클리어"  class="button2" style="width:40px">
<br>
코멘트는 전각 40 문자까지.
</form>
</div>
EOM

	$log .="</table>\n";

	$tm = $cmd = 0;
	$layout_flag=1;
	&call_main_st;
}





1;#삭제 불가
